home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 1999 January / PC Plus Super CD No55a (PCP-147A-1-99) (Disc 1) (1998).iso / linux / developers / visualtcl / windows / vtcl / demo / tclet-grid.tcl < prev    next >
Encoding:
Text File  |  1997-03-27  |  2.3 KB  |  90 lines
  1. #################################
  2. # GLOBAL VARIABLES
  3. #
  4. global w; set w {.top1.fra2.but8}
  5. global widget; 
  6. #################################
  7. # USER DEFINED PROCEDURES
  8. #
  9. proc init {argc argv} {
  10.  
  11. }
  12.  
  13. init $argc $argv
  14.  
  15.  
  16. proc main {argc argv} {
  17.  
  18. }
  19.  
  20. proc Window {args} {
  21. global vTcl
  22.     set cmd [lindex $args 0]
  23.     set name [lindex $args 1]
  24.     set rest [lrange $args 2 end]
  25.     if {$name == "" || $cmd == ""} {return}
  26.     set exists [winfo exists $name]
  27.     switch $cmd {
  28.         show {
  29.             if {[info procs vTclWindow(pre)$name] != ""} {
  30.                 vTclWindow(pre)$name $rest
  31.             }
  32.             if {[info procs vTclWindow$name] != ""} {
  33.                 vTclWindow$name
  34.             }
  35.             if {[info procs vTclWindow(post)$name] != ""} {
  36.                 vTclWindow(post)$name $rest
  37.             }
  38.         }
  39.         hide    { if $exists {wm withdraw $name; return} }
  40.         iconify { if $exists {wm iconify $name; return} }
  41.         destroy { if $exists {destroy $name; return} }
  42.     }
  43. }
  44.  
  45. #################################
  46. # VTCL GENERATED GUI PROCEDURES
  47. #
  48. frame .01 \
  49.     -borderwidth 1 -height 30 -relief sunken -width 30 
  50. pack .01 \
  51.     -anchor center -expand 1 -fill both -padx 5 -pady 5 -side top 
  52. button .01.02 \
  53.     -background #afd9c7 \
  54.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  55.     -pady 3 -text one -width 5 
  56. grid .01.02 \
  57.     -column 0 -row 0 -columnspan 2 -rowspan 1 -sticky ew 
  58.  
  59. button .01.03 \
  60.     -background #d9ab70 \
  61.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  62.     -pady 3 -text three -width 5 
  63. grid .01.03 \
  64.     -column 1 -row 1 -columnspan 1 -rowspan 1 
  65.  
  66. button .01.04 \
  67.     -background #d99bae \
  68.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  69.     -pady 3 -text two -width 5 
  70. grid .01.04 \
  71.     -column 0 -row 1 -columnspan 1 -rowspan 1 
  72.  
  73. button .01.05 \
  74.     -background #1d8fb2 \
  75.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  76.     -pady 3 -text five -width 5 
  77. grid .01.05 \
  78.     -column 0 -row 2 -columnspan 3 -rowspan 1 -sticky ew 
  79.  
  80. button .01.06 \
  81.     -background #7eb5cb \
  82.     -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
  83.     -pady 3 -text four -width 5 
  84. grid .01.06 \
  85.     -column 2 -row 0 -columnspan 1 -rowspan 2 -sticky ns 
  86.  
  87.  
  88.  
  89. main $argc $argv
  90.